home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 87 / 087.d81 / business boot (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1991-01-01  |  1.2 KB  |  32 lines
  1. 5 ifpeek(56)<>32thenpoke56,32:clr
  2. 6 ifdvthen11
  3. 10 dv=peek(186):ifdv<8thendv=8
  4. 11 ifa=0thena=1:load"reader c800 low",dv,1
  5. 12 ifa=1thena=2:load"i-menu $c000",dv,1
  6. 20 gosub70:mb$=" [205][201][206][196][160][217][207][213][210][160][194][213][211][201][206][197][211][211]":j$="[205][160][201][160][206][160][196] [160][160][217] [207][160][213][160][210][160][160][160][194] [213] [211] [201] [206] [197][160][211] [211]"
  7. 21 sys49152,3,4,2,64+4,7,13," 1. [210]ead"+mb$+" [196]ocs "," 2. [210]un"+mb$," 3. [204][207][193][196][211][212][193][210]"
  8. 22 print""spc(12)"[204] [207][160][193] [196] [201] [206] [199] . . ."
  9. 23 geta$:poke186,dv:ifa$="1"thensys51200,"t.docs",j$:poke781,0:sys59903:goto21
  10. 24 ifa$="2"thenpoke56,160:clr:f$="myb boot"
  11. 25 ifa$="3"thenpoke56,160:clr:f$="hello connect"
  12. 30 print"[144]":print""
  13. 40 print "load";chr$(34);f$;chr$(34)","peek(186)
  14. 50 print"run"
  15. 60 poke631,13:poke632,13:poke198,2:end
  16. 70 print"[147]":poke53280,0:poke53281,0:iffthenreturn
  17. 80 poke214,10:print"[145]";
  18. 85 print"[159][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223][154][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]";
  19. 90 fori=1to12:print"[159][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][154][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223]";:next:print""
  20. 100 fori=217to242:pokei,peek(i)or128:next
  21. 110 poke214,12:print"[145]"tab(2)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  22. 120 fori=1to7:printtab(2)"[155]                                    [146][223]":next
  23. 130 printtab(2)"[152][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146][223]"
  24. 140 print"[169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][154][223]"
  25. 150 poke214,14:print"[145][155]";
  26. 160 fori=1to5:reada$:gosub170:next:goto180
  27. 170 printspc(20-len(a$)/2)""a$:a$="":return
  28. 180 f$="myb boot":return
  29. 190 data"[205][201][206][196][160][217][207][213][210][160][194][213][211][201][206][197][211][211]","by [202]eff [202]ones"
  30. 200 data"[214]1.0 [208]ublished on [204][207][193][196][211][212][193][210] #87","[211]ubscriptions 1-800-831-2694"
  31. 210 data"[195]opyright ([195]) 1991 [211]oftdisk"
  32.